home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / hard / drivr / ScanTek4_6.lha / ScanTek / Rexx / ST2ArtEffect.strx < prev    next >
Text File  |  1997-06-08  |  665b  |  40 lines
  1. /*
  2.  * $VER: ST2ArtEffect.strx 1.0 (29.05.97) Waldemar Zöhner
  3.  *
  4.  * Requirements: ScanTek V3.0 or higher
  5.  *               ArtEffekt 2.0 or higher
  6.  *
  7.  * Description:  Load the last scanned image direct into ArtEffekt.
  8.  *
  9.  * Uses:         RC contains the Errorlevel of each ScanTek command
  10.  *               SCANTEK.LASTERROR contains the related error string
  11.  *               RESULT contains the result of some ScanTek command
  12.  *
  13.  */
  14.  
  15. Options FailAt 100
  16.  
  17. Options Results
  18.  
  19.  
  20. Address SCANTEK1
  21.  
  22.   GetImageName
  23.  
  24.   IF rc > 0
  25.    THEN
  26.     DO
  27.       say SCANTEK.LASTERROR
  28.       EXIT
  29.     END;
  30.  
  31.   say 'GetImageName Result is 'Result
  32.  
  33.  
  34. Address "ArtEffect"
  35.  
  36.   loadpic Result
  37.  
  38.  
  39. EXIT
  40.